home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / mus / play / playsid2_1.dms / playsid2_1.adf / preview.rexx < prev    next >
OS/2 REXX Batch file  |  1992-12-11  |  565b  |  32 lines
  1. /*
  2.  * PlaySID ARexx Example
  3.  *
  4.  * rx preview 'songname'
  5.  *
  6.  */
  7.  
  8. if(~show('l', 'rexxsupport.library'))then do
  9.    if(~addlib( 'rexxsupport.library', 0, -30, 0))then do
  10.       say "Could not open ARexx support library."
  11.       exit 10
  12.    end
  13. end
  14.  
  15. parse arg name
  16.  
  17. address command "run SID:PlaySID"
  18. say "Loading"
  19. if SID_Load(name) then do
  20.    numtunes =  SID_NumTunes()
  21.    say "Found" numtunes "tunes"
  22.    do tune = 1 to numtunes
  23.       say "Playing tune" tune
  24.       SID_SetTune(tune)
  25.       SID_Play()
  26.       Delay(5 * 50)
  27.    end
  28.    say "Stopped"
  29.    SID_Stop()
  30. end
  31. SID_Quit()
  32.